home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / diag / yas2c.zip / NEXTERRO.CED < prev    next >
Text File  |  1994-03-30  |  724b  |  46 lines
  1. /*
  2.  * $VER: NextError.ced 1.00 ⌐ 1994 Mike Austin 
  3.  */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. Main:
  8.     ADDRESS "SC_SCMSG"
  9.  
  10.     'FILE';        ErrorFile    = result
  11.     'LINE';        ErrorLine    = result
  12.     'TEXT';        ErrorText    = result
  13.     'CLASS';    ErrorClass    = result
  14.     'DELETE'
  15.  
  16.     ADDRESS "rexx_ced"
  17.  
  18.     'STATUS' 19
  19.     if result ~= ErrorFile | ErrorFile == "" then do
  20.         'STATUS' 18
  21.         if result > 0 then
  22.             'SAVE'
  23.  
  24.         if GETCLIP("CEDNEW") == "YES" then do
  25.             'QUIT'
  26.             SETCLIP("CEDNEW", "NO")
  27.         end
  28.     end
  29.  
  30.     if ErrorFile ~= "" then do
  31.         'JUMP TO FILE' '"'ErrorFile'"'
  32.         if result = 0 then do
  33.             'OPEN NEW'
  34.             'OPEN' '"'ErrorFile'"'
  35.             SETCLIP("CEDNEW", "YES")
  36.         end
  37.  
  38.         'JUMPTO' ErrorLine 1
  39.  
  40.         'OKAY1' ErrorClass": "ErrorText
  41.     end
  42.     else do
  43.         'OKAY1' "No more errors found"
  44.     end
  45. return
  46.